home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_52_nudge functions.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  13.0 KB  |  202 lines
  1. global gProject, gSize, gCast, gVariable, gSecondColor, myCurrentImage, myCurrentPreview, myCurrentSelection, gSelectRect, gMarqueeRect, gSelectionEdited, myStartImage
  2.  
  3. on nudgeLeft
  4.   cursor(4)
  5.   if sprite(4).left = 800 then
  6.     member("state1 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  7.     myCurrentImage = duplicate(member(gSize & "x" & gSize, gCast).image)
  8.     myCurrentPreview = duplicate(member("preview", gCast).image)
  9.     if gProject = "pattern" then
  10.       myCurrentImage.copyPixels(member("preview", gCast).image, member(gSize & "x" & gSize, gCast).rect, rect(1, 0, integer(gSize) + 1, integer(gSize)))
  11.     else
  12.       myCurrentImage.copyPixels(member(gSize & "x" & gSize, gCast).image, rect(0, 0, integer(gSize) - 1, integer(gSize)), rect(1, 0, integer(gSize), integer(gSize)))
  13.       myCurrentImage.fill(integer(gSize) - 1, 0, integer(gSize), integer(gSize), gSecondColor)
  14.     end if
  15.     member(gSize & "x" & gSize, gCast).image.copyPixels(myCurrentImage, myCurrentImage.rect, myCurrentImage.rect)
  16.     updateStage()
  17.     fnUpdatePreview()
  18.     sprite(35).pState = 0
  19.     sendSprite(35, #setMember)
  20.     member("state2 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  21.     myCurrentImage = VOID
  22.     myCurrentPreview = VOID
  23.   else
  24.     if sprite(6).right = (sprite(1).left + gVariable) then
  25.       nothing()
  26.     else
  27.       if gSelectionEdited = 0 then
  28.         if the shiftDown <> 1 then
  29.           myStartImage.fill(gSelectRect, gSecondColor)
  30.         end if
  31.         member("state1 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  32.       end if
  33.       myCurrentImage.copyPixels(myStartImage, myCurrentImage.rect, myStartImage.rect)
  34.       gSelDestRect = rect(gSelectRect[1] - 1, gSelectRect[2], gSelectRect[3] - 1, gSelectRect[4])
  35.       myCurrentImage.copyPixels(myCurrentSelection, gSelDestRect, myCurrentSelection.rect)
  36.       member(gSize & "x" & gSize, gCast).image.copyPixels(myCurrentImage, myCurrentImage.rect, myCurrentImage.rect)
  37.       sprite(4).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top + 1)
  38.       sprite(5).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.left * gVariable) + sprite(1).left + 1, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  39.       sprite(6).rect = rect((gSelDestRect.right * gVariable) + sprite(1).left - 1, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  40.       sprite(7).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top - 1, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  41.       updateStage()
  42.       fnUpdatePreview()
  43.       gSelectionEdited = 1
  44.       gMarqueeRect = rect(sprite(5).left, sprite(4).top, sprite(6).right, sprite(7).bottom)
  45.       gSelectRect = rect((sprite(5).left - sprite(1).left) / gVariable, (sprite(4).top - sprite(1).top) / gVariable, (sprite(6).right - sprite(1).left) / gVariable, (sprite(7).bottom - sprite(1).top) / gVariable)
  46.       put gSelectRect.width into field "dimension status W"
  47.       put gSelectRect.height into field "dimension status H"
  48.     end if
  49.   end if
  50.   cursor(0)
  51. end
  52.  
  53. on nudgeRight
  54.   cursor(4)
  55.   if sprite(4).left = 800 then
  56.     member("state1 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  57.     myCurrentImage = duplicate(member(gSize & "x" & gSize, gCast).image)
  58.     myCurrentPreview = duplicate(member("preview", gCast).image)
  59.     if gProject = "pattern" then
  60.       myCurrentImage.copyPixels(member("preview", gCast).image, member(gSize & "x" & gSize, gCast).rect, rect(integer(gSize) - 1, 0, (integer(gSize) * 2) - 1, integer(gSize)))
  61.     else
  62.       myCurrentImage.copyPixels(member(gSize & "x" & gSize, gCast).image, rect(1, 0, integer(gSize), integer(gSize)), rect(0, 0, integer(gSize) - 1, integer(gSize)))
  63.       myCurrentImage.fill(0, 0, 1, integer(gSize), gSecondColor)
  64.     end if
  65.     member(gSize & "x" & gSize, gCast).image.copyPixels(myCurrentImage, myCurrentImage.rect, myCurrentImage.rect)
  66.     updateStage()
  67.     fnUpdatePreview()
  68.     sprite(35).pState = 0
  69.     sendSprite(35, #setMember)
  70.     member("state2 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  71.     myCurrentImage = VOID
  72.     myCurrentPreview = VOID
  73.   else
  74.     if sprite(5).left = (sprite(1).right - gVariable) then
  75.       nothing()
  76.     else
  77.       if gSelectionEdited = 0 then
  78.         if the shiftDown <> 1 then
  79.           myStartImage.fill(gSelectRect, gSecondColor)
  80.         end if
  81.         member("state1 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  82.       end if
  83.       myCurrentImage.copyPixels(myStartImage, myCurrentImage.rect, myStartImage.rect)
  84.       gSelDestRect = rect(gSelectRect[1] + 1, gSelectRect[2], gSelectRect[3] + 1, gSelectRect[4])
  85.       myCurrentImage.copyPixels(myCurrentSelection, gSelDestRect, myCurrentSelection.rect)
  86.       member(gSize & "x" & gSize, gCast).image.copyPixels(myCurrentImage, myCurrentImage.rect, myCurrentImage.rect)
  87.       sprite(4).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top + 1)
  88.       sprite(5).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.left * gVariable) + sprite(1).left + 1, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  89.       sprite(6).rect = rect((gSelDestRect.right * gVariable) + sprite(1).left - 1, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  90.       sprite(7).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top - 1, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  91.       updateStage()
  92.       fnUpdatePreview()
  93.       gSelectionEdited = 1
  94.       gMarqueeRect = rect(sprite(5).left, sprite(4).top, sprite(6).right, sprite(7).bottom)
  95.       gSelectRect = rect((sprite(5).left - sprite(1).left) / gVariable, (sprite(4).top - sprite(1).top) / gVariable, (sprite(6).right - sprite(1).left) / gVariable, (sprite(7).bottom - sprite(1).top) / gVariable)
  96.       put gSelectRect.width into field "dimension status W"
  97.       put gSelectRect.height into field "dimension status H"
  98.     end if
  99.   end if
  100.   cursor(0)
  101. end
  102.  
  103. on nudgeUp
  104.   cursor(4)
  105.   if sprite(4).left = 800 then
  106.     member("state1 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  107.     myCurrentImage = duplicate(member(gSize & "x" & gSize, gCast).image)
  108.     myCurrentPreview = duplicate(member("preview", gCast).image)
  109.     if gProject = "pattern" then
  110.       myCurrentImage.copyPixels(member("preview", gCast).image, member(gSize & "x" & gSize, gCast).rect, rect(0, 1, integer(gSize), integer(gSize) + 1))
  111.     else
  112.       myCurrentImage.copyPixels(member(gSize & "x" & gSize, gCast).image, rect(0, 0, integer(gSize), integer(gSize) - 1), rect(0, 1, integer(gSize), integer(gSize)))
  113.       myCurrentImage.fill(0, integer(gSize) - 1, integer(gSize), integer(gSize), gSecondColor)
  114.     end if
  115.     member(gSize & "x" & gSize, gCast).image.copyPixels(myCurrentImage, myCurrentImage.rect, myCurrentImage.rect)
  116.     updateStage()
  117.     fnUpdatePreview()
  118.     sprite(35).pState = 0
  119.     sendSprite(35, #setMember)
  120.     member("state2 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  121.     myCurrentImage = VOID
  122.     myCurrentPreview = VOID
  123.   else
  124.     if sprite(7).bottom = (sprite(1).top + gVariable) then
  125.       nothing()
  126.     else
  127.       if gSelectionEdited = 0 then
  128.         if the shiftDown <> 1 then
  129.           myStartImage.fill(gSelectRect, gSecondColor)
  130.         end if
  131.         member("state1 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  132.       end if
  133.       myCurrentImage.copyPixels(myStartImage, myCurrentImage.rect, myStartImage.rect)
  134.       gSelDestRect = rect(gSelectRect[1], gSelectRect[2] - 1, gSelectRect[3], gSelectRect[4] - 1)
  135.       myCurrentImage.copyPixels(myCurrentSelection, gSelDestRect, myCurrentSelection.rect)
  136.       member(gSize & "x" & gSize, gCast).image.copyPixels(myCurrentImage, myCurrentImage.rect, myCurrentImage.rect)
  137.       sprite(4).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top + 1)
  138.       sprite(5).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.left * gVariable) + sprite(1).left + 1, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  139.       sprite(6).rect = rect((gSelDestRect.right * gVariable) + sprite(1).left - 1, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  140.       sprite(7).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top - 1, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  141.       updateStage()
  142.       fnUpdatePreview()
  143.       gSelectionEdited = 1
  144.       gMarqueeRect = rect(sprite(5).left, sprite(4).top, sprite(6).right, sprite(7).bottom)
  145.       gSelectRect = rect((sprite(5).left - sprite(1).left) / gVariable, (sprite(4).top - sprite(1).top) / gVariable, (sprite(6).right - sprite(1).left) / gVariable, (sprite(7).bottom - sprite(1).top) / gVariable)
  146.       put gSelectRect.width into field "dimension status W"
  147.       put gSelectRect.height into field "dimension status H"
  148.     end if
  149.   end if
  150.   cursor(0)
  151. end
  152.  
  153. on nudgeDown
  154.   cursor(4)
  155.   if sprite(4).left = 800 then
  156.     member("state1 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  157.     myCurrentImage = duplicate(member(gSize & "x" & gSize, gCast).image)
  158.     myCurrentPreview = duplicate(member("preview", gCast).image)
  159.     if gProject = "pattern" then
  160.       myCurrentImage.copyPixels(member("preview", gCast).image, member(gSize & "x" & gSize, gCast).rect, rect(0, integer(gSize) - 1, integer(gSize), (integer(gSize) * 2) - 1))
  161.     else
  162.       myCurrentImage.copyPixels(member(gSize & "x" & gSize, gCast).image, rect(0, 1, integer(gSize), integer(gSize)), rect(0, 0, integer(gSize), integer(gSize) - 1))
  163.       myCurrentImage.fill(0, 0, integer(gSize), 1, gSecondColor)
  164.     end if
  165.     member(gSize & "x" & gSize, gCast).image.copyPixels(myCurrentImage, myCurrentImage.rect, myCurrentImage.rect)
  166.     updateStage()
  167.     fnUpdatePreview()
  168.     sprite(35).pState = 0
  169.     sendSprite(35, #setMember)
  170.     member("state2 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  171.     myCurrentImage = VOID
  172.     myCurrentPreview = VOID
  173.   else
  174.     if sprite(4).top = (sprite(1).bottom - gVariable) then
  175.       nothing()
  176.     else
  177.       if gSelectionEdited = 0 then
  178.         if the shiftDown <> 1 then
  179.           myStartImage.fill(gSelectRect, gSecondColor)
  180.         end if
  181.         member("state1 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  182.       end if
  183.       myCurrentImage.copyPixels(myStartImage, myCurrentImage.rect, myStartImage.rect)
  184.       gSelDestRect = rect(gSelectRect[1], gSelectRect[2] + 1, gSelectRect[3], gSelectRect[4] + 1)
  185.       myCurrentImage.copyPixels(myCurrentSelection, gSelDestRect, myCurrentSelection.rect)
  186.       member(gSize & "x" & gSize, gCast).image.copyPixels(myCurrentImage, myCurrentImage.rect, myCurrentImage.rect)
  187.       sprite(4).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top + 1)
  188.       sprite(5).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.left * gVariable) + sprite(1).left + 1, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  189.       sprite(6).rect = rect((gSelDestRect.right * gVariable) + sprite(1).left - 1, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  190.       sprite(7).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top - 1, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  191.       updateStage()
  192.       fnUpdatePreview()
  193.       gSelectionEdited = 1
  194.       gMarqueeRect = rect(sprite(5).left, sprite(4).top, sprite(6).right, sprite(7).bottom)
  195.       gSelectRect = rect((sprite(5).left - sprite(1).left) / gVariable, (sprite(4).top - sprite(1).top) / gVariable, (sprite(6).right - sprite(1).left) / gVariable, (sprite(7).bottom - sprite(1).top) / gVariable)
  196.       put gSelectRect.width into field "dimension status W"
  197.       put gSelectRect.height into field "dimension status H"
  198.     end if
  199.   end if
  200.   cursor(0)
  201. end
  202.